<!--#include virtual="/Common/Config.asp" -->
<!--#include virtual="/Common/conn.asp" -->
<!--#include virtual="/2010admin/Check_IsLogin.asp" -->
<!--#include virtual="/Common/Function.asp" -->
<!--#include virtual="/2010admin/Check_Priv.asp"-->
<!--#include virtual="/2010admin/Common/Query_List_GetSQL.asp"-->

<%
'==========================================
'**********	Modify  Start  ****************
dim TITLE,DISPFILD,PAGESIZE,SQL,HV
dim AddLabel,addURL,delURL,editURL,detailURL,detailURLsn
TITLE="会员管理"
DISPFILD="UserName<用户名称,Member_Type<用户类型,Reg_Date<注册日期,Reg_IP<注册IP,Last_LoginDate<最近日期,Last_LoginIP<最近登陆IP"
PAGESIZE="20"
HV="H"

delURL="Member_Del.asp"
detailURLsn=1
editURL="Member_Edit.asp"
detailURL="Member_View.asp"

'其他子操作列表 以#分隔
Other_Title = "关联企业信息"
Other_Url   = "Corp_Name_Set.asp"

'置顶排序分类
Sort_Name		= "家政能手"


'设置置顶文件
Set_Top_URL = "Member_Set_Top.asp"

'排序操作文件
Sort_Url 	= "Member_Sort.asp"

Sort_Title  = "排序"
sql = "SELECT UserID,UserName,Reg_Date,Reg_IP, Last_LoginDate, Last_LoginIP,Member_Type "&_	

	  " FROM Member WHERE 1=1  "
	  
	UserName	= reform("UserName")
	query_date1 = reform("query_date1")
	query_date2 = reform("query_date2")
	
	sql = LikeSql("UserName",UserName,sql)
	sql = DateSql("Reg_Date", query_date1,query_date2,sql)
	
	
	'writebr sql

'**********	Modify  Stop  *****************
'==========================================

If Request.form("previous")="上一页" Then PageNo=request.form("PageNo")-1
If Request.form("next")="下一页" Then PageNo=request.form("PageNo")+1
If Request.form("GotoPageNo")<>"" Then PageNo=request.form("GotoPageNo")
If Request.form("GotoPageNo2")<>"" Then	PageNo=request.form("GotoPageNo2")
%>

<HTML>
<HEAD>
<TITLE><%=Title%></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="/2010admin/css/default.css" type="text/css" rel="stylesheet">
<script language="javascript" src="/lib/prototype.js"></script>
<script language="javascript" src="/2010admin/js/function.js"></script>
</HEAD>
<BODY BGCOLOR="#FFFFFF"><br>
<form method="post" name="form">
<TABLE cellSpacing=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD width="43%" align=left><FONT size=4><B><%=TITLE%></B></FONT>
	<%if addURL<>"" then%>
	<%=GetSpace(4)%><input type='button' class='inputbutton' value='<%=AddLabel%>' name='add' onClick="window.location.href='<%=addURL%>'">
	<%end if%>	
	<% If Sort_Title<>"" Then %>
		<%=GetSpace(4)%><input type='button' class='inputbutton' value='<%=Sort_Title%>' name='add' onClick="window.location.href='<%=Sort_URL%>'">
	<% End If %>
	</TD>
    <TD width="41%" align=right><TABLE cellSpacing=0 cellPadding=1 border=0>
      <TR>
      <TD>用户名称</TD>
      <TD>注册日期</TD>
      </TR>
      <TR>
      <TD><INPUT name="UserName" class=inputtext id="UserName" Value="<%=UserName%>" size=8></TD>
      <TD><INPUT name="query_date1" class=inputtext id="query_date1" Value="<%=query_date1%>" size=8>
        ~
          <INPUT name="query_date2" class=inputtext id="query_date2" Value="<%=query_date2%>" size=8></TD>
      </TR>
    </TABLE></TD>
    <TD vAlign=middle width="16%"><INPUT type="submit" class="button" value="搜索" name="search"></TD>
  </TR>
  </TBODY>
</TABLE>
<HR SIZE=1>
<%
IF NOT Query_List_GetSQL(DISPFILD,SQL,PAGESIZE,HV,delURL,editURL,detailURL,detailURLsn) THEN
	Response.Write "<br><BR><center><font size=2><font color=#ff0000>程序执行错误！请与系统管理员联系！"
END If

Call conn_close()

%>
</FORM>
</BODY>
</HTML>
